web scrap with chromote

Author

Tony Duan

Code

library(tidyverse)
library(chromote)

Code

packageVersion("chromote")

1 create view

Code

library(chromote)

b <- ChromoteSession$new()

# In a web browser, open a viewer for the headless browser. Works best with
# Chromium-based browsers.
b$view()

Code

b$Browser$getVersion()

2 go to page

Code

b$Page$navigate("https://www.bing.com")

3 take picture

Code

# Saves to screenshot.png
b$screenshot()

Code

# Takes a screenshot of elements picked out by CSS selector
is_interactive <- interactive() # Display screenshot if interactive
b$screenshot("sidebar.png", selector = "h1" ,show = is_interactive)

4 take picture as pdf

Code

b$screenshot_pdf(filename='page.pdf')

5 Reference:

https://rstudio.github.io/chromote/

---
title: "web scrap with chromote"
author: "Tony Duan"

execute:
  warning: false
  error: false
  eval: false

format:
  html:
    toc: true
    toc-location: right
    code-fold: show
    code-tools: true
    number-sections: true
    code-block-bg: true
    code-block-border-left: "#31BAE9"
---

```{r}
library(tidyverse)
library(chromote)
```

```{r}
packageVersion("chromote")
```


# create view
```{r}
library(chromote)

b <- ChromoteSession$new()

# In a web browser, open a viewer for the headless browser. Works best with
# Chromium-based browsers.
b$view()
```

```{r}
b$Browser$getVersion()
```

# go to page
```{r}
b$Page$navigate("https://www.bing.com")
```
# take picture
```{r}
# Saves to screenshot.png
b$screenshot()
```

```{r}
# Takes a screenshot of elements picked out by CSS selector
is_interactive <- interactive() # Display screenshot if interactive
b$screenshot("sidebar.png", selector = "h1" ,show = is_interactive)
```


# take picture as pdf
```{r}
b$screenshot_pdf(filename='page.pdf')
```

# Reference:

https://rstudio.github.io/chromote/